home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aah.d64 / noah with voice (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  17KB  |  474 lines
  1. 1 IFA=0THENA=1:LOAD"PLAY/FIND",8,1
  2. 2 SYS49155"NOAH VOICE",8
  3. 3 DIMO$(195):DIMTP$(23)
  4. 4 DIMCR$(15)
  5. 10 REM (null)(null)
  6. 20 POKE775,191
  7. 25 RESTORE
  8. 30 PRINT"[147]"
  9. 50 PRINTCHR$(8):PRINTCHR$(142)
  10. 100 M=0:CA=0:NT=0
  11. 300 GOTO1900
  12. 360 POKE 53280,0: POKE 53281,0:PRINT"[147][149]              [169]          [223][146]"
  13. 365 PRINT"    NOAH AND[149]   [166][166][166][219][219][219][166][166][166][166]     THE ARK[149]"
  14. 370 PRINT"               [166][166][166][166][166][166][166][166][166][166]    "     "
  15. 375 [153]"         (null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRWAITSTEP"    "
  16. 380 PRINT"          [223][183][183][183][183][183][183][183][144]    [149][183][183][183][183][183][183][146][169]"
  17. 385 PRINT"           [223][183][183][183][183][183][183][144]    [149][183][183][183][183][183][146][169]"
  18. 390 PRINT"            [223][183][183][183][183][183][146][206]  [205][183][183][183][183][146][169]"
  19. 395 PRINT"       [169]     [255][255]                [223][146] @@"
  20. 400 PRINT"   \\ [169]                   [216]     [223][146][194][194]"
  21. 405 PRINT"   [194][194][169]    *    WRITTEN BY  *     [205] [223]"
  22. 410 PRINT"[169] [206]  .                      *   [205] [223]"
  23. 415 PRINT"[169] [206]        STEVE WILLIAMS    .    [205] [223][146] @"
  24. 420 PRINT"[145][169]                 AND            *    [223][146][194]"
  25. 425 PRINT"[145]          [193] CLIFTON W. KROLL           [223]"
  26. 430 PRINT"[145]     @                       *          "
  27. 435 PRINT"[145]     [194]@ SPEECH DONE WITH VOICEMASTER    "
  28. 440 PRINT"[145]  .   [221]     [216]             .        [193][193]   "
  29. 445 PRINT"[145]    COVOX, 675-D CONGER ST., EUGENE, OR "
  30. 450 PRINT"[145]                                        "
  31. 455 PRINT"INSTRUCTIONS? (Y/N)"
  32. 456 POKE151,0:SYS49152
  33. 457 POKE198,0
  34. 460 GETA$:IFA$=""THEN460
  35. 465 IFA$="Y" THEN GOTO 480
  36. 470 IFA$="N"THENGOTO685
  37. 475 IFA$<>"Y,N"THENGOTO460
  38. 480 REM
  39. 485 TP$(0)="[147]  [144]                                    "
  40. 490 TP$(1)="  [144] [146]                [167] [146]                [144] "
  41. 495 TP$(2)="  [144] [146]                [167] [146]                [144] "
  42. 500 TP$(3)="  [144] [146]                [167] [146]                [144] "
  43. 505 TP$(4)="  [144] [146]      T H Y     [144][167] [146]      ALL       [144] "
  44. 510 TP$(5)="  [144] [146]                [167] [146]                [144] "
  45. 515 TP$(6)="  [144] [146]     W O R D    [144][167] [146]   SCRIPTURE    [144] "
  46. 520 TP$(7)="  [144] [146]                [167] [146]                [144] "
  47. 525 TP$(8)="  [144] [146]       I S      [144][167] [146]  IS INSPIRED   [144] "
  48. 530 TP$(9)="  [144] [146]                [167] [146]                [144] "
  49. 535 TP$(10)="  [144] [146]    T R U T H   [144][167] [146]    OF  GOD     [144] "
  50. 540 TP$(11)="  [144] [146]                [167] [146]                [144] "
  51. 545 TP$(12)="  [144] [146]                [167] [146]                [144] "
  52. 550 TP$(13)="  [144] [146]                [167] [146]                [144] "
  53. 555 TP$(14)="  [144]                   [144]                 "
  54. 560 TP$(15)="                     [157][146][223] "
  55. 565 TP$(16)="    [144]EVERY TIME YOU ANSWER A QUESTION"
  56. 570 TP$(17)="  CORRECTLY, YOU BUILD PART OF THE ARK"
  57. 575 TP$(18)="     WHEN YOU HAVE SCORED 10 CORRECT"
  58. 580 TP$(19)="   ANSWERS OUT OF A POSSIBLE 18, YOU"
  59. 585 TP$(20)=" WILL SEE NOAH AND THE FLOOD. IF YOU"
  60. 587 TP$(21)="  KNOW THE FOLLOWING SONG IT WILL HELP"
  61. 588 TP$(22)=" YOU ON THIS DRILL. ANY KEY TO CONTINUE[145][145]"
  62. 592 POKE53280,0:POKE53281,12
  63. 595 FOR N=0TO22:PRINTTP$(N):NEXTN
  64. 597 POKE198,0
  65. 600 GETA$:IFA$=""THEN600
  66. 610 PRINT"[147]":POKE53280,6:POKE53281,5
  67. 620 PRINT"  DAY ONE, DAY ONE,"
  68. 622 PRINT"  GOD MADE LIGHT WHEN THERE WAS NONE."
  69. 624 PRINT"  DAY TWO, DAY TWO,"
  70. 626 PRINT"  GOD MADE AIR FOR ME AND YOU."
  71. 628 PRINT"  DAY THREE, DAY THREE,"
  72. 630 PRINT"  GOD MADE LAND AND GRASS AND TREES."
  73. 632 PRINT"  DAY FOUR, DAY FOUR,"
  74. 634 PRINT"  GOD MADE SUN, MOON, STARS GALORE."
  75. 636 PRINT"  DAY FIVE, DAY FIVE,"
  76. 638 PRINT"  GOD MADE BIRDS AND FISH ALIVE"
  77. 640 PRINT"  SIXTH DAY, SIXTH DAY,"
  78. 642 PRINT"  GOD MADE MAN AND BEAST THAT DAY."
  79. 644 PRINT"  DAY SEVEN, DAY SEVEN,"
  80. 646 PRINT"  GOD IS RESTING IN HIS HEAVEN."
  81. 648 PRINT"    (SING EACH VERSE TWICE)"
  82. 650 PRINT"  *** ANY KEY TO CONTINUE ***"
  83. 660 POKE 198,0
  84. 670 GETPI$:IFPI$=""THEN670
  85. 685 GOSUB1645:GOTO735
  86. 735 IFNT=15THEN2710
  87. 736 POKE53280,0:POKE53281,12:PRINT"[147]  [144]                                    "
  88. 737 NT=NT+1
  89. 738 IFX>=195THENX=0
  90. 740 PRINT"  [144] [146]                [167] [146]                [144] "
  91. 745 PRINT"  [144] [146]                [167] [146]                [144] "
  92. 750 PRINT"  [144] [146]                [167] [146]                [144] "
  93. 755 PRINT"  [144] [146]                [167] [146]                [144] "
  94. 760 PRINT"  [144] [146]                [167] [146]                [144] "
  95. 765 PRINT"  [144] [146]                [167] [146]                [144] "
  96. 770 PRINT"  [144] [146]                [167] [146]                [144] "
  97. 775 PRINT"  [144] [146]                [167] [146]                [144] "
  98. 780 PRINT"  [144] [146]                [167] [146]                [144] "
  99. 785 PRINT"  [144] [146]                [167] [146]                [144] "
  100. 790 PRINT"  [144] [146]                [167] [146]                [144] "
  101. 795 PRINT"  [144] [146]                [167] [146]                [144] "
  102. 800 PRINT"  [144] [146]                [167] [146]                [144] "
  103. 805 PRINT"  [144]                   [144]                 "
  104. 810 PRINT"                     [157][146][223] "
  105. 815 X=X+1:PRINT"[144][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"O$(X)
  106. 820 X=X+1:PRINT""O$(X)
  107. 825 X=X+1:PRINT""O$(X)
  108. 830 X=X+1:PRINT""O$(X)
  109. 835 X=X+1:PRINT""O$(X)
  110. 840 X=X+1:PRINT""O$(X)
  111. 845 X=X+1:PRINT"[145][145][145][145][145][145][145][145][145][145][145]"O$(X)
  112. 850 X=X+1:PRINT""O$(X)
  113. 855 X=X+1:PRINT""O$(X)
  114. 860 X=X+1:PRINT""O$(X)
  115. 865 X=X+1:PRINT""O$(X)
  116. 870 X=X+1:PRINT""O$(X)
  117. 875 PRINT"                                     "
  118. 880 PRINT"                                     "
  119. 885 PRINT"                                     "
  120. 890 PRINT"                                     "
  121. 895 PRINT"                                     [145][145][145][145][145]"
  122. 900 PRINT"        SELECT THE BEST ANSWER BY"
  123. 905 PRINT"          TYPING A, B, C, OR D."
  124. 910 POKE 198,0
  125. 915 GETH$:IFH$=""THENGOTO915
  126. 925 X=X+1:IFH$=O$(X)THENGOTO1050
  127. 930 IFH$="A"ORH$="B"ORH$="C"ORH$="D"THEN955
  128. 950 X=X-1:GOTO915
  129. 955 GOSUB1200:POKE151,3:SYS49152
  130. 965 PRINT"        WRONG - THE ANSWER WAS ";O$(X)
  131. 970 GOSUB2800
  132. 975 PRINT"[145]        WRONG[146] - THE ANSWER WAS "O$(X)
  133. 980 GOSUB2800
  134. 985 PRINT"[145][146]        WRONG - THE ANSWER WAS "O$(X)
  135. 990 GOSUB2800
  136. 995 PRINT"[145]        WRONG[146] - THE ANSWER WAS "O$(X)
  137. 1000 GOSUB2800
  138. 1005 PRINT"[145][146]        WRONG - THE ANSWER WAS "O$(X)
  139. 1010 GOSUB2800
  140. 1015 PRINT"[145]        WRONG[146] - THE ANSWER WAS "O$(X)
  141. 1020 GOSUB2800
  142. 1025 PRINT"[145][146]        WRONG - THE ANSWER WAS "O$(X)
  143. 1030 GOSUB2800
  144. 1035 PRINT"[145]        WRONG[146]"O$(X)"[146]"
  145. 1040 GOSUB2800
  146. 1045 GOTO735
  147. 1050 POKE151,2:SYS49152:GOSUB1105
  148. 1055 PRINT"        "O$(X)" *** THAT IS CORRECT ***[145]"
  149. 1057 CA=CA+1
  150. 1060 GOSUB2800
  151. 1065 PRINT"        "O$(X)"[146] *** THAT IS CORRECT[146] ***[145]"
  152. 1070 GOSUB2800
  153. 1075 PRINT"        "O$(X)" *** THAT IS CORRECT ***[145]"
  154. 1080 GOSUB2800
  155. 1085 PRINT"        "O$(X)"[146] *** THAT IS CORRECT[146] ***[145]"
  156. 1090 GOSUB2800
  157. 1095 GOTO1375
  158. 1100 GOTO735
  159. 1105 REM: SOUND FOR CORRECT ANSWER
  160. 1110 BEGIN=54272:FORCLEAR=BEGTOBEGIN+24:POKECLEAR,0:NEXT
  161. 1115 POKEBE+5,85:POKEBE+6,85:POKEBE+12,85:POKEBE+13,85
  162. 1120 POKEBE+24,85
  163. 1125 POKEBE+4,33:POKEBE+11,17
  164. 1130 POKEBE+1,25:POKEBE,30:POKEBE+8,18:POKEBE+7,209
  165. 1135 GOSUB2820
  166. 1140 POKEBE+1,33:POKEBE,135:POKEBE+8,25:POKEBE+7,30
  167. 1145 GOSUB2820
  168. 1150 POKEBE+1,42:POKEBE,62:POKEBE+8,31:POKEBE+7,165
  169. 1155 GOSUB2820
  170. 1160 POKEBE+1,50:POKEBE,60:POKEBE+8,37:POKEBE+7,162
  171. 1165 GOSUB2830
  172. 1170 POKEBE+1,42:POKEBE,62:POKEBE+8,31:POKEBE+7,165
  173. 1175 GOSUB2820
  174. 1180 POKEBE+1,50:POKEBE,60:POKEBE+8,37:POKEBE+7,162
  175. 1185 GOSUB2830
  176. 1190 BEGIN=54272:FORCLEAR=BEGTOBEGIN+24:POKECLEAR,0:NEXT
  177. 1195 RETURN
  178. 1200 FOR L=54272TO54296:POKEL,0:NEXTL
  179. 1205 POKE54296,15
  180. 1210 POKE54277,64
  181. 1215 POKE54278,64
  182. 1220 POKE54273,8:POKE54272,17
  183. 1225 POKE54276,33
  184. 1230 GOSUB2830
  185. 1235 POKE54276,16
  186. 1240 RETURN
  187. 1375 M=M+1
  188. 1380 POKE53281,0:GOSUB1580
  189. 1385 PRINT"    [149][223] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][205]   [205][163][163][163][163][163][163][163][163][163] [146][169]"
  190. 1390 GOSUB2830:IFM<>1THEN1405
  191. 1395 GOSUB2840
  192. 1400 IFM=1THENGOTO735
  193. 1405 PRINT"[145][145]   [149][223] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][205]   [205][163][163][163][163][163][163][163][163][163][163][163] [146][169]"
  194. 1410 GOSUB2830:IFM<>2THEN1425
  195. 1415 GOSUB2840
  196. 1420 IFM=2THENGOTO735
  197. 1425 PRINT"[145][145]  [149][223]               [205]   [205]              [146][169]"
  198. 1430 GOSUB2830:IFM<>3THEN1445
  199. 1435 GOSUB2840
  200. 1440 IFM=3THENGOTO735
  201. 1445 PRINT"[145][145]      [149][164][164][164][164][164][164][164][164][164][164][164][144][164][164][164][164][164][164][149][164][164][164][164][164][164][164][164][164][164][164]"
  202. 1450 GOSUB2830:IFM<>4THEN1465
  203. 1455 GOSUB2840
  204. 1460 IFM=4THENGOTO735
  205. 1465 PRINT"[145][145]      [149]     [146][219][219][219]   [144]      [149]           "
  206. 1470 GOSUB2830:IFM<>5THEN1485
  207. 1475 GOSUB2840
  208. 1480 IFM=5THENGOTO735
  209. 1485 PRINT"[145][145]      [149]     [146][219][219][219]   [144]      [149]           "
  210. 1490 GOSUB2830:IFM<>6THEN1505
  211. 1495 GOSUB2840
  212. 1500 IFM=6THENGOTO735
  213. 1505 PRINT"[145][145]      [149][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  214. 1510 GOSUB2830:IFM<>7THEN1525
  215. 1515 GOSUB2840
  216. 1520 IFM=7THENGOTO735
  217. 1525 PRINT"[145][145]    [149][169]                              [223]"
  218. 1530 GOSUB2830:IFM<>8THEN1545
  219. 1535 GOSUB2840
  220. 1540 IFM=8THENGOTO735
  221. 1545 PRINT"[145][145]     [149][169]                            [223]"
  222. 1550 GOSUB2830:IFM<>9THEN1565
  223. 1555 GOSUB2840
  224. 1560 IFM=9THENGOTO735
  225. 1565 PRINT"[145][145]      [149][169]                          [223]"
  226. 1570 GOSUB2850
  227. 1575 GOTO2190
  228. 1580 PRINT"[147]  [169]                                 [223]"
  229. 1585 PRINT" [169]    *      .                 *     [223]"
  230. 1590 PRINT"[169]                                     [223]"
  231. 1595 PRINT"          *       *                *   [223]"
  232. 1600 PRINT"[145]                               *        "
  233. 1605 PRINT"[145]                     *                  "
  234. 1610 PRINT"[145]    .          *                    *   "
  235. 1615 PRINT"[145]       *                  *             "
  236. 1620 PRINT"[145]          .                             "
  237. 1625 PRINT"[145]   *                    .               "
  238. 1630 PRINT"[145]               *                *       "
  239. 1635 PRINT"[145]                                        [157][157]"
  240. 1640 RETURN
  241. 1645 REM
  242. 1650 REM
  243. 1655 O$(1)="WHEN DID GOD":O$(2)="CREATE THE":O$(3)="HEAVENS AND"
  244. 1660 O$(4)="THE EARTH?":O$(5)="":O$(6)="":O$(7)="A. 4000 B.C."
  245. 1665 O$(8)="B. IN THE":O$(9)="   BEGINNING":O$(10)="C. AFTER ADAM"
  246. 1670 O$(11)="D. 1985 YEARS":O$(12)="   AGO":O$(13)="B"
  247. 1675 O$(14)="ON WHICH DAY":O$(15)="DID GOD CREATE":O$(16)="HUMANS?    "
  248. 1680 O$(17)="          ":O$(18)="":O$(19)="":O$(20)="A. FIRST    "
  249. 1685 O$(21)="B. FOURTH":O$(22)="C. FIFTH    ":O$(23)="D. SIXTH     "
  250. 1690 O$(24)="             ":O$(25)="      ":O$(26)="D"
  251. 1695 O$(27)="AFTER SIX DAYS":O$(28)="OF CREATION   ":O$(29)="GOD SAID THAT"
  252. 1700 O$(30)="EVERYTHING WAS":O$(31)="WHAT?":O$(32)="":O$(33)="A. PERFECT"
  253. 1705 O$(34)="B. FINISHED":O$(35)="C. VERY GOOD":O$(36)="D. WORKING"
  254. 1710 O$(37)="             ":O$(38)="      ":O$(39)="C"
  255. 1715 O$(40)="IN WHOSE IMAGE":O$(41)="DID GOD CREATE":O$(42)="MAN?         "
  256. 1720 O$(43)="              ":O$(44)="     ":O$(45)="":O$(46)="A. MICHAEL'S"
  257. 1725 O$(47)="B. GOD'S   ":O$(48)="C. ADAM'S   ":O$(49)="D. ABEL'S    "
  258. 1730 O$(50)="":O$(51)="":O$(52)="B"
  259. 1735 O$(53)="ON WHICH DAY":O$(54)="WAS THE PLANT":O$(55)="KINGDOM MADE"
  260. 1740 O$(56)="BY GOD?   ":O$(57)="":O$(58)="":O$(59)="A. SECOND   "
  261. 1745 O$(60)="B. THIRD ":O$(61)="C. FIFTH   ":O$(62)="D. SIXTH     "
  262. 1750 O$(63)="             ":O$(64)="      ":O$(65)="B"
  263. 1755 O$(66)="ON WHICH DAY":O$(67)="DID GOD     ":O$(68)="SEPARATE THE"
  264. 1760 O$(69)="LIGHT FROM THE":O$(70)="DARKNESS?":O$(71)="":O$(72)="A. FIRST"
  265. 1765 O$(73)="B. SECOND":O$(74)="C. THIRD    ":O$(75)="D. FOURTH    "
  266. 1770 O$(76)="             ":O$(77)="      ":O$(78)="A"
  267. 1775 O$(79)="THE PLANTS  ":O$(80)="YIELDED FRUIT":O$(81)="EACH ACCORDING "
  268. 1780 O$(82)="TO WHAT?      ":O$(83)="         ":O$(84)="":O$(85)="A. ITS KIND"
  269. 1785 O$(86)="B. THE RAINS":O$(87)="C. PREVIOUS ":O$(88)="   HARVESTS.  "
  270. 1790 O$(89)="D. THEIR NEEDS":O$(90)="      ":O$(91)="A"
  271. 1795 O$(92)="WHO WAS TO HAVE":O$(93)="DOMINION OVER":O$(94)="THE FISH,  "
  272. 1800 O$(95)="BIRDS, CATTLE,":O$(96)="AND OTHER":O$(97)="ANIMALS."
  273. 1805 O$(98)="A. ANGELS":O$(99)="B. LIONS":O$(100)="C. MAN"
  274. 1810 O$(101)="D. THE DEVIL":O$(102)="       ":O$(103)="      ":O$(104)="C"
  275. 1815 O$(105)="ON WHAT DAY DID":O$(106)="GOD CREATE   ":O$(107)="BIRDS AND SEA"
  276. 1820 O$(108)="CREATURES?    ":O$(109)="         ":O$(110)="               "
  277. 1825 O$(111)="A. THIRD    ":O$(112)="B. FOURTH":O$(113)="C. FIFTH"
  278. 1830 O$(114)="D. SIXTH  ":O$(115)="             ":O$(116)="      ":O$(117)="C"
  279. 1835 O$(118)="WHAT MOVED UPON":O$(119)="THE FACE OF":O$(120)="THE WATERS "
  280. 1840 O$(121)="IN THE    ":O$(122)="BEGINNING?":O$(123)="":O$(124)="A. GOD    "
  281. 1845 O$(125)="B. THE SPIRIT":O$(126)="   OF GOD   ":O$(127)="C. A HUGE STORM"
  282. 1850 O$(128)="D. MANY SHIPS":O$(129)="      ":O$(130)="B"
  283. 1855 O$(131)="ON WHICH DAY ":O$(132)="DID GOD MAKE":O$(133)="THE SUN, MOON,"
  284. 1860 O$(134)="AND STARS?":O$(135)="":O$(136)="":O$(137)="A. SECOND   "
  285. 1865 O$(138)="B. THIRD ":O$(139)="C. FOURTH   ":O$(140)="D. SEVENTH   "
  286. 1870 O$(141)="             ":O$(142)="      ":O$(143)="C"
  287. 1875 O$(144)="WHICH VERSE   ":O$(145)="BEGINS: 'IN  ":O$(146)="THE BEGINNING"
  288. 1880 O$(147)="GOD CREATED...'":O$(148)="":O$(149)="":O$(150)="A. GEN. 1:1"
  289. 1881 O$(151)="B. GEN. 1:5":O$(152)="C. GEN. 1:20":O$(153)="D. GEN. 1:31"
  290. 1882 O$(154)="":O$(155)="":O$(156)="A"
  291. 1883 O$(157)="THE SUN, MOON":O$(158)="AND STARS WERE":O$(159)="CALLED WHAT? "
  292. 1884 O$(160)="               ":O$(161)="":O$(162)="":O$(163)="A. DIVINE     "
  293. 1885 O$(164)="   GUIDES  ":O$(165)="B. GODS     ":O$(166)="C. LIGHTS   "
  294. 1886 O$(167)="D. PROPHETIC":O$(168)="   SIGNS":O$(169)="C"
  295. 1887 O$(170)="WHAT DID GOD ":O$(171)="DO ON THE     ":O$(172)="SEVENTH DAY? "
  296. 1888 O$(173)="":O$(174)="":O$(175)="":O$(176)="A. PUNISHED MAN"
  297. 1889 O$(177)="B. NAMED THE":O$(178)="   ANIMALS":O$(179)="C. RESTED"
  298. 1890 O$(180)="D. CREATED THE":O$(181)="GARDEN OF EDEN":O$(182)="C"
  299. 1891 O$(183)="BASED UPON YOUR":O$(184)="STUDY OF GEN.":O$(185)="1, HOW DID THE"
  300. 1892 O$(186)="WORLD COME  ":O$(187)="INTO EXISTENCE?":O$(188)="          "
  301. 1893 O$(189)="A. BY CHANCE  ":O$(190)="B. IT IS    ":O$(191)="   ETERNAL"
  302. 1894 O$(192)="C. EVOLUTION  ":O$(193)="D. CREATION   ":O$(194)="   BY GOD."
  303. 1895 O$(195)="D"
  304. 1896 RETURN
  305. 1900 REM
  306. 1905 PRINT"[147]"
  307. 1910 POKE 53280,0:POKE53281,0
  308. 1915 G$( 1)="   [169]       [223][146]                       "
  309. 1920 G$( 2)=" [169]   *      [205] .   [223][146]                 "
  310. 1925 G$( 3)="    *        [205]     [223][146]    [169]      [223][146]       "
  311. 1930 G$( 4)="     *        [205]   .    [206]  .        [223][146]"
  312. 1935 G$( 5)="            *         [206]        *    [223][146]"
  313. 1940 G$( 6)="              *                      [223][146]"
  314. 1945 G$( 7)="   *        *         *          *    [223]"
  315. 1950 G$( 8)="         *          *           *      "
  316. 1955 G$( 9)="                 *                *    "
  317. 1960 CR$(0)="[152][175][175]"
  318. 1965 CR$( 1)="[170][205] [205]"
  319. 1970 CR$( 2)="   [175][175][186] [166][166][175][175]"
  320. 1975 CR$( 3)="  [170][205]  [205][166][166]  [205]"
  321. 1980 CR$( 4)="  [170] [166][166][166][166][166][166][166][166][180]"
  322. 1985 CR$( 5)="   [205][166][166][166][166][166][166][166][166][180]"
  323. 1990 CR$( 6)="    [183][183][180][166][166][183][183][183]"
  324. 1995 CR$( 7)="      [180][166][166]"
  325. 2000 CR$( 8)="      [180][166][166]"
  326. 2005 CR$( 9)="[180][166][166]"
  327. 2010 CR$(10)="[180][166][166]"
  328. 2015 CR$(11)="[180][166][166]"
  329. 2020 CR$(12)="[180][166][166]"
  330. 2025 CR$(13)="[223][146][152][166][166]"
  331. 2030 PRINT""
  332. 2035 FOR I=1 TO 9:PRINTG$(I):NEXTI
  333. 2040 PRINT""
  334. 2045 FOR I=0TO13:PRINTCR$(I):NEXTI
  335. 2050 GOSUB2810
  336. 2100 PRINT "B I B L E"
  337. 2105 GOSUB2850
  338. 2110 PRINT"S E R I E S"
  339. 2115 GOSUB2850
  340. 2120 PRINT"S O F T W A R E"
  341. 2125 GOSUB2850
  342. 2130 PRINT"BY CLIFTON W. KROLL"
  343. 2132 GOSUB2850
  344. 2135 PRINT"AND STEVE WILLIAMS"
  345. 2150 FORI=16 TO 1 STEP-1
  346. 2155 POKE 53280,I
  347. 2160 FORJ=1 TO 100:NEXT J
  348. 2165 NEXT I
  349. 2170 PRINT""
  350. 2175 FOR I=1 TO 40:PRINT"";:NEXTI:POKE 53281,1
  351. 2180 PRINT""
  352. 2185 GOTO360
  353. 2190 REM:NOAH MULTICOLOR SPRITE
  354. 2195 FOR K=896 TO 958
  355. 2200 READ NOAH
  356. 2205 POKE K,NOAH
  357. 2210 NEXTK
  358. 2215 DATA 0,20,4
  359. 2220 DATA 0,125,17
  360. 2225 DATA 0,125,17,0,125,16
  361. 2230 DATA 0,85,16,2,150,144
  362. 2235 DATA 2,150,144,2,150,144
  363. 2240 DATA 2,170,144,2,170,144
  364. 2245 DATA 2,170,144,2,170,32
  365. 2250 DATA 2,0,16,2,170,16
  366. 2255 DATA 0,170,16,0,170,16
  367. 2260 DATA 0,170,16,0,170,16
  368. 2265 DATA 0,170,16,0,170,16
  369. 2270 DATA 0,17,16
  370. 2275 POKE 2040,14
  371. 2280 VIC=53248
  372. 2285 POKE VIC,160
  373. 2290 POKE VIC+1,100
  374. 2295 POKE VIC+29,0:POKEVIC+23,0
  375. 2300 POKE VIC+28,1
  376. 2305 POKE VIC+33,0
  377. 2310 POKE VIC+37,1
  378. 2315 POKE VIC+38,5
  379. 2320 POKE VIC+39,6
  380. 2325 GOSUB 2850
  381. 2330 POKE VIC+21,1
  382. 2335 PRINT"                     ";
  383. 2340 Z=160:Y=100
  384. 2345 FORY=100 TO 164
  385. 2350 POKE VIC,Z:POKE VIC+1,Y
  386. 2355 Z=INT(Z+1)
  387. 2360 FORJ=1TO50:NEXTJ
  388. 2365 NEXTY
  389. 2370 GOSUB2850
  390. 2371 GOSUB2500:GOSUB2502
  391. 2372 GOSUB2500:GOSUB2502
  392. 2373 GOSUB2500:GOSUB2502
  393. 2374 GOSUB2550:GOSUB2552
  394. 2375 GOSUB2550:GOSUB2552
  395. 2376 GOSUB2500:GOSUB2502
  396. 2378 PRINT"HERE COMES THE RAIN!";
  397. 2379 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]I BETTER GET INSIDE."
  398. 2380 PRINT"":POKE151,4:SYS49152
  399. 2440 Z=224:Y=164
  400. 2445 FOR Y=164 TO 100STEP-1
  401. 2450 POKE VIC,Z:POKE VIC+1,Y
  402. 2455 Z=INT(Z-1)
  403. 2460 FORJ=1TO50:NEXTJ
  404. 2465 NEXTY
  405. 2467 POKEVIC+21,0
  406. 2468 PRINT
  407. 2470 PRINT"[149][163][163][163][163][163][163]"
  408. 2471 PRINT"[145][145][149][163][163][163][163][163][163]"
  409. 2472 PRINT"[145][145][149]      "
  410. 2473 PRINT"[145][145][149][204][175][175][175][175][186]"
  411. 2474 PRINT"[145][145][149][180]    [170]"
  412. 2475 PRINT"[145][145][149][207][183][183][183][183][208]"
  413. 2479 PRINT"               *    ";
  414. 2480 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]  *       .        ."
  415. 2499 GOTO2600
  416. 2500 PRINT"[205][205][206][205][205]":GOSUB2800:RETURN
  417. 2502 PRINT"     ":GOSUB2800:RETURN
  418. 2550 PRINT"                                 [205][205][206][205][205][205]":GOSUB2800
  419. 2551 RETURN
  420. 2552 PRINT"                                       ":GOSUB2800
  421. 2553 RETURN
  422. 2600 PRINT"                                       [145][145]"
  423. 2601 POKE1983,160:POKE56255,6:GOSUB2810
  424. 2603 PRINT"[145]                                        [145]":GOSUB2810
  425. 2605 PRINT"[145][145]                                        [145]":GOSUB2810
  426. 2607 PRINT"[145][145][145]                                        [145]":GOSUB2810
  427. 2608 PRINT"[145][145]                                        [145]":GOSUB2810
  428. 2610 PRINT"[145][145][145]                                        [145]":GOSUB2810
  429. 2612 PRINT"[145][145]                                        [145]":GOSUB2810
  430. 2614 PRINT"[145][145][145]                                        [145]":GOSUB2810
  431. 2616 PRINT"[145][145]                                        [145]":GOSUB2810
  432. 2618 PRINT"[145][145][145]                                        [145]":GOSUB2810
  433. 2620 PRINT"[145][145][145]                                        [145]":GOSUB2810
  434. 2622 PRINT"[145][145][145]                                        [145]":GOSUB2810
  435. 2624 PRINT"                                        ":GOSUB2800
  436. 2625 PRINT"[145]                                        ":GOSUB2800
  437. 2627 PRINT"[145]                                        ":GOSUB2800
  438. 2629 PRINT"[145]                                        ":GOSUB2800
  439. 2631 PRINT"[145]                                        ":GOSUB2800
  440. 2633 PRINT"[145]                                        ":GOSUB2800
  441. 2635 PRINT"[145]                                        ":GOSUB2800
  442. 2637 PRINT"[145]                                        ":GOSUB2800
  443. 2639 PRINT"[145]                                        ":GOSUB2800
  444. 2641 PRINT"[145]                                        ":GOSUB2800
  445. 2643 PRINT"[145]                                        ":GOSUB2800
  446. 2645 PRINT"[145]                                        ":GOSUB2800
  447. 2646 PRINT"GAME OVER"
  448. 2647 PRINT"         PLAY AGAIN? (Y/N)":POKE151,1:SYS49152
  449. 2648 PRINT" OR RETURN TO BIBLE GAMES MAIN MENU (M)"
  450. 2649 GETA$:IFA$=""THEN2649
  451. 2650 IFA$="Y"THEN20
  452. 2651 IFA$="N"THEN2700
  453. 2652 IFA$="M"THEN4000
  454. 2653 GOTO2649
  455. 2700 END
  456. 2710 PRINT"[147]      YOUR SCORE WAS"CA"OUT OF 15"
  457. 2720 PRINT"    YOU MUST GET 10 CORRECT IN ORDER"
  458. 2730 PRINT"       TO SEE NOAH AND THE FLOOD"
  459. 2740 PRINT"      ** STUDY AND PLAY AGAIN **"
  460. 2742 PRINT"           PLAY AGAIN? (Y/N)"
  461. 2743 GETA$:IFA$=""THEN2743
  462. 2744 IFA$="Y"THEN20
  463. 2745 IFA$="N"THEN2750
  464. 2746 GOTO2743
  465. 2750 END
  466. 2800 FORT=1TO250:NEXTT:RETURN
  467. 2810 FORT=1TO150:NEXTT:RETURN
  468. 2820 FORT=1TO70:NEXTT:RETURN
  469. 2830 FORT=1TO140:NEXTT:RETURN
  470. 2840 FORT=1TO1500:NEXTT:RETURN
  471. 2850 FORT=1TO500:NEXTT:RETURN
  472. 4000 POKE198,4:PRINT"[147]LOAD"CHR$(34)"BIBLE MENU"CHR$(34)",8";
  473. 4002 POKE631,13:POKE632,82:POKE633,117:POKE634,13:END
  474.